Option Explicit
Sub P_Sample008()
    Dim myNewName As String
    myNewName = ThisWorkbook.Path & "\" & "Tmp"	'NƧ
    If Len(Dir(myNewName, vbDirectory)) > 0 Then
        If (GetAttr(myNewName) And vbDirectory) = vbDirectory Then
             Exit Sub
        End If
    End If
    MkDir myNewName
End Sub
